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1 /* */ 

2 /* ETC: Global system definitions */ 

3 /* *> 

4 /★ TYPES. H - Portable type definitions */ 

5 /* 

6 

7 lifndef JTXPESJDEFINED 

8 idefine "tXPESJDEFINED 

9 

10 iif (! defined (BIT32) £& ! defined (BIT16 > ) 

11 #exzor BIT16 or BIT32 must be defined 

12 #endif 
13 

j4 /* Common types — - 

15 

16 typedef int bool; 
17 

18 #ifndef TKCE 

19 #define FALSE < (bool) 0) 

20 idefine TRUE ((bool) ( ? FALSE) ) 

21 #endif 
22 

23 typedef signed char schar; 

24 typedef unsigned char uchar; 
25 

26 iifndef WINNT 

27 Idefine MXNCHAR {(char) 0x00) // 0x80 in WINNT.HH 

28 #define MAXCHAR ((char) 0x7F) 

29 lendif 
30 

31 Idefine MINSCHAR ((char) 0x80) 

32 Idefine MftXSCHAR ( (char) 0x7F) 
33 

34 Idefine MINUCHAR ((char) 0x00) 

35 Idefine MAXUCHAR ( (char) OxTF) 

36 

37 typedef void * da tap; 

38 typedef void *~codep; //$$ "void *_codep (void) ;« would not work 
39 

40 lifdef cpiusplus 

41 Idefine NULLD 0 

42 idefine NULLC 0 

43 lelse 

44 idefine NULLD ( (_datap> 0) 

45 Idefine NULLC < fcodep) 0) 

46 lendif 

47 

48 lifndef NOLL 

49 idefine NULL ( (void *) 0) 

50 lendif 
51 

52 /* 

53 Notes: 

55 1, Types datap and codep are provided for systems /models in which 

56 data pointers are""of different size than code pointers. See also 

57 

58 */ 

59 



type _pointer in the compatibility types section of this header file. 

FIG. 17A 



WO 97/22925 PCT/US9M9675 



1 /* — - Machine types - — ~ — — —————— — — - 

2 

3 typedef unsigned char byte; 

4 typedef unsigned short int word; 

5 typedef unsigned long int dword; 

6 

7 Idefine MINBXTE ((byte) 0x00) 

8 lifndef WINNT_ 

9 Idefine MRXBYTE ( (byte) OxST) 
10 #endif 

11 

12 #def ine MTNWORD ( (word) OxOOOOU) 

13 lifndef _WINNT_ 

14 # define MAXWOBD ( (word) OxFITFU) 

15 iendif 

16 

17 Idefine MXNOTORD ((dword) OxOOOOOOOOUI.) 

IS lifndef JWINNT^ 

19 Idefine MAXDWORD ((dword) Oxrnmm} 

20 #endif 

21 

22 /* Tolerance types (hardware-dependent) — — - 

23 

24 typedef unsigned int uint; //guaranteed to be at least 16 bits wxde. 

25 typedef signed int sint; //guaranteed to be at least 16 bits wide, 
26 

27 #define MINXNT (( int) 0x0000) 

2S fdefine MAXINT ( ( int) 0x7iTF) 
29 

30 Idefine MINSIKT ( (sint) -32767-1) 

31 #define MMCSIOT ((sint) 0x7FFT) 
32 

33 fdefine MINUINT ((uint) OxOOOOU) 

34 Idefine MAXUIKT ((uint) OxTFITU) 

35 

36 /* 

37 Notes: 

Use tolerance types for variables that are expected to only take 
small values which will never exceed the minimum number of guaranteed 
bit width, so that the compiler can choose the actual type which the 
underlying hardware feels most comfortable in dealing with. 

Use of tolerance types is only allowed for variables of a local scope; 
it is prohibited for public/external variables. Writing the binary 
contents of a tolerance variable to a disk file is punishable by death. 

Negative values are not allowed for type int. (thus it is 15 bits wide 
instead of 16 bits wide.) Use type sint if you are planning to assign 
negative values to a variable. 

Alternatively, type int can be prohibited by Idefining it as *$3$l$ w 
(in the end of this header file) and the use of uint or sint can be 
promoted instead* 

56 5- Operations that result in overflow/underflow beyond the minimum 

57 * number of guaranteed bits yield undefined results and should, be 

58 avoided for all tolerance types, 

59 */ 
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Portable types 



typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 



signed 
unsigned 

signed 
unsigned 

signed 
unsigned 



short 

short 

short 

long 

long 

long 



typedef unsigned 



typedef uint32 

Idefine NO CTX (( ctx)6) 





int 8 ; 


char 


sintS ; 


char 


uintS ; 


int 


intl6; 


int 


sint!6; 


int 


uintlfi; 


int 


int32 ; 


int 


sint32 ; 


int 


uint32 ; 




f lg8 ; 


int 


flglfi; 


int 


flg32; 



ctx; 



// max. size between jdatap £ uint32 



typedef uint32 
idefine NO ID32 ( { 


id32)0) 


_id32,\ 


// 32-bit id 


typedef uintl6 
idefine NO ID16 f ( 


id!6)0) 


_id!6; 


// 16-bit id 


typedef _id32 
Idefine NO_ID ( ( 


_id)0) 


_id; 


// default id (32-bit) 


typedef intS 




boolS ; 


// the shortest stand-alone 


Idefine MININT8 ( 
Idefine MAXINT8 ( 


( int8) 
( intS) 


0x00) 
0x7F) 




idefine MINSINT8 ( 
Idefine MAXSINT8 { 


(sintS) 
(sintS) 


0x80) 
0x7F) 




Idefine MINXJINT8 { 
idefine MAXUINT8 ( 


(uintS) 
(uintB) 


0x00) 
OxFF) 




idefine MINXOT16 ( 
Idefine MAXXNT16 ( 


( intlS) 
( intl6) 


0x0000} 
0x7FFF) 




idefine MXNSINT16 ( 
Idefine MAXSIOT16 ( 


(sintlS) 
(sintlfi) 


0x8000) 
0x7rST) 




Idefine MINUINT16 ( 
Idefine MAXUINT16 ( 


<uxnt!6) 
(uint!6) 


OxOOOOU) 

Oxirrru) 




Idefine MZNXNT32 ( 
idefine MMONT32 ( 


( int32) 
( int32) 


OxOOOOOOOOL) 
0x7ETFFFITL) 




Idefine MINSINT32 ( 
Idefine MAXSINT32 ( 


(sint32) 
(sint32) 


0x80000000L) 
0x7IT7FITFL) 




Idefine MXNUINT32 ( 
# define MAXUINT32 < 


(uint32) 
(uint32) 


OxOOOOOOOOUL) 

oxnrmmuL) 

FIG. 17C 
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i 

2 /* 



3 Notes : 

4 

5 1. Use int!6 and int32 when you know the exact bit width that you want 

6 for your variable, but you do not care about the interpretation of 

7 the sign of the variable. This way, the compiler will choose an 

8 actual signed or unsigned type, depending on what the underlying 

9 hardware feels most comfortable in dealing with. 
10 

11 2. As an example , variables that are ideal candidates to be declared as 

12 intlS or int32 are sets of bitflags: although the bit capacity of such 

13 a variable is crucial, the variable will never be interpreted as a 

14 signed or unsigned value. 
15 

16 3. All integer operations defined by the C language are valid on all of 

17 the portable types, and overflow/ underflow operations beyond 
1$ the specified bit widths have predictable behaviour. 



19 V 
20 

21 #endif // defined _TXPESJ)EFINED 

22 
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/* 

/* 
/* 
/* 
/* 



ETC: Global system definitions 
STATUS. H - global system statae 



*/ 
*/ 
V 
*/ 
*/ 



lifndef 
Idefine 



_STATUSJDEFINED 

"status DEFINED 



/* define status type 



Idefine stat uint 



/* define ifjcxx macros 



#define if ret(s,e) if (<(s> « <e)> ?» ST_OK) return ((s)) 

#define if"deanup(s ,e,c) if ( ( (s) » (e) ) !• STJ0K) return <((c), (s))) 



/* define general status values — — 

# define ST OK 0 // successful operation 

/* structures/ tables manipulation */ 



# define ST_ALLOC 
#define ST~KO_ROCM 
Idefine ST~OVERFLOW 
# define STJJNDERTWW 
Idefine STJEMFW 
Idefine ST_FCLL 
# define STJEOF 

/* valchk */ 
#def ine ST_INVALXD 
Idefine STJ3ADJ/ALUE 
Idefine ST~Cm~Q?JtoNGZ 
Idefine ST NULL_PTR 
Idefine STjaADjsYNTAX 
Idefine STJBAD~NAME 

/* BAD errors */ 
Idefine STJJNEXPECTED 
Idefine ST_PAHIC 
Idefine STJ3EADLOOC 

/* failures */ 
Idefine STBEFOSE 
Idefine ST NO ACTION 
Idefine ST~FAILED 

/* state check */ 
Idefine ST^NOTJTHITED 
Idefine ST~NOT_ACTIVE 
Idefine ST~HOTJOPEK 

/* i/o system */ 
Idefine ST IOEBR 
Idefine STBAD_CHKSUM 

/* set-related */ 



20 
21 
22 
23 
24 
25 
26 



30 
31 
32 
33 
34 
35 



// can't alloc (for variable size alloc/pool) 
// can't alloc fixed sz entry in fixed sz pool 
// value , buffer, whatever may overflow 
// value , buffer, counter, whatever may underflow 
// QUEUE /smth is empty * no elements 
// queue/ smth is full 
// end of file 



// value not valid in operation context 
// value not valid in module's context 
// value out of range 

// NULL ptr is not valid in operation context 
// text/formatted data syntax error 
// name invalid in module 1 s context 



40 // unexpected condition of parm or external object 

41 // unexpected condition of self or internal object 

42 // deadlock detected 

45 // oper rejected voluntarily (inappropriate state) 

46 // oper requires no action (eg close closed file) 

47 // operation failed / not successful 

50 // object is not initialized 

51 // oper allowed only when object is active 

52 // oper allowed only when object is open 

60 // I/O error - file system / peripherals error 

61 // wrong chksum 
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1 ifdefine ST_NOT_FOUND 62 // requested item not found 

2 Idefine ST~DUPLICATE 63 // duplicated item is not allowed 

3 

4 /* critical section / privileges 

5 Idefine ST_BUSY 70 // 

6 #define ST~ACCESSJ3ENIED 71 // 

7 # define ST PRIVILEGE 72 // 

8 Idefine ST~SCOPE_VIOIATION 73 // 

9 # define STJBAD_ACCESS 74 // 
10 

11 /* operation status */ 

12 #de£ine ST PENDING 

13 #define STJTIMEOUT 

14 # define ST~CANCELLED 

15 Idefine STABORTED 

16 #define ST~RESET 

17 # define ST^CLEAKUP 

18 #def ine ST~OVERRIDE 
19 

20 /* API */ 

21 Idefine ST_CANT_BIND 

22 #define ST~FPI_IrROR 

23 #define ST_WRONG_VERSION 

24 # define ST~NOT^IKPLEMEHTED 

25 Idefine STJKhTsUPPORTED 
26 

27 /* environment-specific */ 

28 #de£ine ST BAD UID 100 // OBJ: invalid uid 

29 Idefine ST BAD~MSG 101 // OBJ: invalid msg or object doesn't handle it 

30 #define ST~0X COT 102 // OBJ:don't call more virt. objs; return STJSK 

31 Idefine ST~NOT INHERITED 103 // OBJ: method was abstract; needs to be inherited 

32 Idefine ST~BAD~PID 104 // OBJ: invalid pid 

33 Idefine ST~WIN~DFLT 210 // WIN:WindowProc: call DefWinProc, use its result 

34 Idefine ST~BLOCX_OVERIttDE 300 // KER: attempt to block a thread that is already 

35 blocked " 



37 /* String table 

38 

39 lifdef _ERR_STAT 
40 

41 struct STAT TXT S 

42 f 

43 _stat s; 

44 char *p; 

45 ) ; 
46 

47 Idefine DBF STATUS (a) < <») , Is ) 

48 

49 static struct STAT TXTJ3 _erx_sts_tbl [3 33 

50 { 

51 DEF_STATUS ( STJ0K 

52 DEF_STATUS ( ST~ALLOC 

53 DEF_STATUS ( STJNO_ROOM 

54 DEF STATUS ( STjOVERFLOK 

55 DEF_STAXUS ( S ^UNDERFLOW 

56 DEF~STATUS ( STJEMPTY 

57 DEF_STAXUS { STJFOLL 

58 DEF~STATUS ( STJBOF 

59 DEF STATUS ( STJCNVALID 



FIG. 18B 



V 

in critical section (dynamic, short period) 
temporary lack of access (dynamic , long period) 
privilege violation (static) 
(no comment) 

access type not appropriate / not possible 



60 // operation is pending 

81 // timeout has expired 

82 // operation cancelled on user's request 

83 // op. aborted on system/module's request 

84 // object has been orderly reset 

85 // object is about to be destroyed, now in cleanup 

86 // operation/ entity was overriden 



90 // can't bind / resolve name, handle , etc. 

91 // invalid function request, etc. 

92 // incompatible version of data/ code detected 

93 // feature not implemented 

94 // partial implementation; feature not supported 
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1 DEFJSTATUS ( ST_BAD_VALUE 

2 DEFJSTATUS ( S T_OUT_OF_RANGE 

3 DEFJSTATUS ( STJSULL_ PTR 

4 DEFJSTATUS ( STBAD_?raTAX 

5 DEfJsTATUS ( StJbAD_NAM£ 

6 DEF_STATUS ( STJUNSDCPECTED 

7 DEFjsTATUS ( S TAPANI C 

s defjstatus ( stj)eadlocx 

9 defjstatus ( stjiefuse 

10 DEFjsTATUS ( StJnOjACTION 

11 DEF_STATUS ( STJFAILED 

12 DEF_STATUS ( S T JNOT_INI TED 

13 DEFJSTATUS ( StJnOT_ACTIVE 

14 DEFJSTATUS ( StJnOTJOPEN 

15 DEFJSTATUS { ST_IOERR 

16 DEFJSTATUS ( STJBAD_CHXSUM 

17 DEFJSTATUS ( STJNOT_FOUND 

18 DEFJSTATUS ( STJ5UPLICATE 

19 DEFJSTATUS ( ST_BUSY 

20 DEFJSTATUS ( StJaCCESSJDENIED 

21 DEFjsTATUS ( StJpRIVILEGE 

22 DEFJSTATUS { S tJs COPE J/I OI*A3T ON 

23 DEFJSTATUS { ST~BAD_ ACCESS 

24 DEfJsTATUS ( ST~P ENDING 
> 25 DEF STATUS ( STJTIMEOUT 

26 DEFJ5TATUS ( STjCANCELLED 

27 DEF~STATUS { ST~ABORTED 

28 DEF_STATUS ( STJRESET 

29 DEFJSTATUS ( STJTLEANUP 

30 DEFJSTATUS ( STjOVERRIDE 

31 DEF~STATUS ( ST_CAOTJBIHD 

32 defjstatus < stJfpiJSbror 

33 def~status < stjtocngjversion 

34 DEF~STATUS C S tJnOT_IMPLEMENTED 

35 DEFJSTATUS ( STJNOtJsUPPORTED 
3(5 DEFJSTATUS ( StJbAdJuID 

37 DEFJSTATUS ( STjaAD~MSG 

38 DEFJSTATUS ( STjDKjCUT 

39 DEFJSTATUS ( StJnOT_INHERITED 

40 DEFJSTATUS ( STJBADJPID 

41 DEFJSTATUS ( StJwINJDFLT 

42 DEFJSTATUS ( STJBLOOC^OVERRIDE 

43 I; 
44 



45 #er*di£ // ERR STAT 

46 

47 

48 /* states codes 1000 and up are system- or module* specific — 

49 

50 #endif // STATUS JDEFIUED 
51 
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1 /* */ 

2 /* ETC: Global system definitions */ 

3 /* */ 

4 /* IFACE.H - Interface support */ 

5 /* */ 

6 /* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. */ 

7 /* */ 

3 

9 lifndef _IFACEJDEFINED 

10 #define _IFACE_DEFINED 
11 

12 /* type definitions - - */ 



13 

14 typedef uint _iid; 
15 

16 #define NO IID 0 
17 

18 Idefine IID COMPAT(il ,12) \ 



19 t(il) —""(12) II \ 

20 (il) — IIDJMPOLY I I \ 

21 (12) — IIDjfPOLY ) 
22 

23 /* support macro definitions - 

24 



25 class COMPONENT; // forward 
26 

27 class INTERFACE 



28 { 

29 public: 

30 const _iid iid; 

31 const ^COMPONENT * const objp; 
32 

33 public: 

34 INTERFACE (_iid id, ^COMPONENT *op) : iid (id) , ©bjp (op) { } 
35 

36 protected.: 

37 virtual - INTERFACE (void) { } // (hack) - adds vtbl - simplifies ptr casts 

38 #define IFACE~OFFSET_OPO 1 // 1st operation starts at index 1 in vtbl 

39 j ; " // Keep in sync! 
40 

41 Idefine INTERFACE (i) \ 

42 class i : public ^INTERFACE \ 

43 { \ 

44 public: \ 

45 i ( COMPONENT *op) : ^INTERFACE (XXD_##i, op) { ) \ 

46 protected : \ 

47 i (void) : ^INTERFACE (0, NULL) { ) \ 

48 i (ifi ir) : "INTERFACE < 0 ' * > \ 

49 virtual -i (void) { } 
50 

51 Idefine END_INTERFACE \ 

52 ) ; 
53 

54 Idefine CONSTANTS public: 

55 Idefine BUSES public: 

56 Idefine OPERATIONS public: 

57 Idefine METHODS public: 



58 

59 Idefine DEFINE JOTS \ 

F1G.19A 
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1 struct BUS \ 

2 { 

4 tfdefine BUS(x) \ 

5 struct x \ 

6 { 
1 

8 #de£ine ENDJBUS \ 

9 } ; 
10 

11 #define IOTERFAC£_BUS (x ) \ 

12 typed©* x BUS 

13 

14 idefine DEFAULTS <x) \ 

15 BUS (void) { x; } 
16 

17 idefin* BUS_DEFAULTS (b , x) \ 

18 b <void)~{ x; } 
19 

20 Idefine FACTORX_DEFAULTS (x) \ 

21 FACTORYJBUS (void) { x; ) 
22 

23 #define OP(o) \ 

24 virtual _stat o (BUS *bp) ~ 0 
25 

26 lendif // IFACE DEFINED 
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1 /* */ 

2 /* IFC: Project Interfaces */ 

3 /* */ 

4 /* I TERMINAL* H - Terminal control */ 

5 /* */ 

6 /* Copyright (c) 1994-95 Object Dynamics Corp, All Rights Reserved* */ 

7 /* */ 



8 

9 iifndef _I_TERMINALJ}EFINED 
10 # define _IJTERMINAL~DEFINED 
11 
12 

13 BUS ( BJTERMINAL ) 

14 // terminal identification 

15 char *namep ; // terminal name 

16 uint namejsz; // size of name buffer 

17 

18 // terminal information 



19 


uint 


type 


// terminal type (physical mechanism + direction) 


20 


uint32 card 


// terminal cardinality 


21 


flg!6 


attr 


// terminal attributes 


22 








23 


// connection data 




24 


iid 


iid ; // terminal interface id (contract id) 


25 


INTERFACE *ip ; // v- table interface 


26 








27 


// connection identification 


28 


id32 


conn id, 


r // connection id (as defined by the terminal) 


29 


COMPONENT *comp 


r // pointer to component ($$EV EVB, see notes) 


30 


_id 


linx_id 


r // link id <$$EV_EVB, see notes) 


31 








32 


ENDJBUS 






33 








34 


# define 


IID_I_TERMINAL 


0x03 


35 








36 


INTERFACE (I TERMINAL) 




37 








38 














39 


CONSTANTS 




40 


enum TXPE 




41 




{ 




42 




T_INPUT * 0 , 




43 




T OUTPUT m X, 




44 




f ; 




45 








46 


en 


um ATTR 




47 




{ 




48 




A STOSIG ■» <1UL « 14) , // terminal for standard signal 


49 




A~FLOATING * (1UL « 15) , II terminal is ok to be unconnected 


50 




} ; 




51 
52 








/* — 






53 


BUSES 




54 


INTERFACE BOS ( B TERMINAL ) ; 


55 
56 














57 


OPERATIONS 




58 




OP ( acquire 


); 


59 




OP ( release 


> ; 



*/ 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



OP ( connect 

OP ( disconnect 

OP { get_ info 

OP ( get_context 

OP ( set_context 

OP { qry_open 

OP { qryjget^first 

OP ( qry_ oet_last 

OP ( qry_cfet_next 

OP ( qry_getjprev 

OP ( qryjget_curr 

OP ( qry_close 



n3D_ INTERFACE 

/* declaration macro */ 

#de£ine DECLABE_I_TEBMINAL (c , 1 ) 
IDEE (c, 1, I_TESMINAL) 
OPDECL { acquire 
OPDECL ( release 
OPDECL ( connect 
OPDECL ( disconnect 
OPDECL ( get_info 
OPDECL ( get_centext 
OPDECL ( set_context 
OPDECL ( qry_open 
OPDECL ( qryjget_first 
OPDECL { qry_ge t_las t 
OPDECL < qryjgetjnext 
OPDECL ( qry^get^prev 
OPDECL ( qry_get_curr 
OPDECL ( qryjclose 
END_IDEF 

/* allow for semicolon */ 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 



typedef int c# #_!_# # JDECIJtflE — I JTEFMII^JJDMM* 



// 


Descriptions : 




// 


on 


acquire 




// 


in i 


name© 


- terminal name 


// 






- component on the other side 


// 




link id 


• link id 


// 


out: 


(ip> 


- if type is T_INPUT - pointer to the terminal interface 


// 




type 


- terminal type (I_TEBMINAL: :T_xxx) 


// 




iid 


- expected, interface id 


// 




conn_id 


- connection id assigned for this connection 


// 


act: 


acquire 


connection context 


// 


s 


ST NOT FOUND - terminal not found 


// 




ST~NO ROOM - terminal cardinality exhausted 


// 


on 


release 




// 


in : 


namep 


- terminal name 


// 






- if type is TJ30TPOT - interface to which the output was 


connected 




// 






if type is T_INPOT - interface to release 


// 






($$ may not be needed and in most cases can not be provided) 


// 






- component on the other side 


// 




linked 


- link id 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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41 
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// 
// 
// 
// 
// 
// 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

// 
// 
// 



out 
act 

S 



on 
in 



conn_ id - connection id assigned by this terminal on acquire 
void 

release terminal 

ST_NO_ACTION - terminal was not connected 

(to/via specified interface or component) 
ST NOT FOUND - terminal not found 



T XXX) 



out 
act 
s 



on 

in 



connect 
namep 
type 
iid 

(ip) 
comp 
linkjid 
connJLd 
void 

connect terminal 

ST_R£FUSE - interface mismatch (e.g 

ST NOT FOUND - terminal not found 



to connect to 



terminal na 

terminal type ( I_TEBMINAL : 
expected, interface id 
if type is T_OUTPUT - interface 
component to connect to 
link id 

connection id assigned by this terminal on acquire 



unacceptable IID) 



disconnect 
namep - terminal 
ip - if type is T_OUTPUT - interface to which the output is 



connected 

II 
II 
II 
If 
II 
II 
II 
II 
II 



if type is T_INPUT - interface to disconnect 
($$ may not be needed and in most cases can not be provided) 

- component to disconnect from 

- linx id 

connection id assigned by this terminal on acquire 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

// 
// 

// 
// 

// 
// 
// 
// 
// 
// 

// 



linxJLd 
conn_id 
out : void 

act: disconnect terminal 

s : ST NO ACTION - terminal was not connected 

(to/via specified interface or component) 

on getJLnfo 
in : namep * terminal name 

out: type - terminal type ( ^TERMINAL : : T_xxx ) 
iid - interface id of terminal 

card - terminal cardinality (static, not current) 
attr - terminal attributes 
act: return information about specified terminal 
s : ST NOT FOUND - terminal not found 

nb : the information returned by this operation is not affected by 
the current state of the terminal 



on get_context 
not implemented 



on setjcontext 
not implemented 

on qry__open 

in : namep - query string 

out: ctx - query context for subsequent qry_xxx operations 

act: open query on terminal namespace 
s : STJN0_R00M - too many open queries 
StTbAD SYNTAX - bad query syntax 



qry_ge t £ irs t 
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1 //in 2 namep - buffer for name or NULL 

2 // (namejsz) - size of buffer, [bytes] 

3 // ctx - query context from previous qry_xxx operation 

4 // out: (*namep) - terminal name 

5 // ctx - query context for subsequent qry_xxx operation 

6 // act: get first matching terminal name 

7 Us : S T_NOT_FOUND - no matching terminals 

S 

9 II on qry_get_last 

10 // in : namep - buffer for name or NULL 

11 // (namejsz) - size of buffer, [bytes] 

12 II ctx - query context from previous qry_xxx operation 

13 // out: (*namep) - terminal name 

j4 // ctx - query context for subsequent qry_xxx operation 

15 // act: get last matching te rm inal name 

16 // s : ST NOT FOUND - no matching terminals 

17 

IS //on qry_get_next 

19 // in : namep ~ - buffer for name or NULL 

20 // (name_sz) - size of buffer, [bytes] 

21 // ctx - query context from previous qry_ xxx operation 

22 // out: (*namep) - terminal name 

23 // ctx - query context for subsequent qry_xxx operation 

24 // act: get next matching terminal name 

25 // s ST NOT FOUND - no more matching terminals 

26 

27 // on qryjgetjprev 

28 II in t namep - buffer for name or NULL 

29 // (name sz) - size of buffer, [bytes] 

3Q // c tx " - query context from previous qry_xxx operation 

31 // out: (*namep) - terminal name 

32 // ctx - query context for subsequent qry_xxx operation 

33 // act: get previous matching terminal name 

34 // s : ST NOT FOUND - no more matching terminals 

35 ~ 

36 //on qry_get_curr 

37 //in : namep - buffer for name or NULL 

38 // (name sz) - size of buffer, [bytes] 

39 // c tx " - query context from previous qry_xxx operation 

40 // out: (*namep) - terminal name 

41 // act: get current terminal name in query 

42 // nb : ctx is unchanged 

43 

44 // on qryjclose 

45 If in t ctx - query context from qry_open or another qry_xxx operation 

46 // out: void 

47 // act: close query on terminal name space 

48 

49 // $$EV EVB — fields used by the event bus terminal interface 

50 // Note? comp in the bus is provided for use by connectivity components only. 

51 // it should not be used by regular components £ assemblies. 

52 // comp contains pointer identifying the component at the other side 

53 // of the link. ^ ^. , 

54 // Both link id and comp may be used for identification of the particular 

55 // connection on a terminal. They should not be interpreted in any way 
55 // nor the comp should be dereferenced. Sometimes the ip field on 

57 // disconnect and release may be used for connection identification, too. 

58 

59 // Note: the assembly manager (dflt assembly implementation) does not store 

FIG 20D 



nr>K r> 



WO 97/22925 



PCT/US96/19675 



1 // the connection id — so it may not be provided on disconnect/ release 

2 

3 // Note: $$ on disconnect ip may not be provided in many cases: 

4 // a) when output array is connected to input array 

5 // b) when assy output is connected to input array 

G // In both examples above the input ptr cannot be obtained from the output 

7 // and therefore cannot be passed on input's disconnect. 

8 // {Generally, none of the existing parts uses ip for identification) 

9 

10 #endif // I TERMINAL_DEFINED 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 



IFC: Project Interfaces 
I_PROP.H - Property 
Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved, 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



#ifndef 
tdefine 



PROP_DEFINED 
PROP DEFINED 



/* .type values */ 



Idefine 
#define 
# define 
fdefine 
#define 
# define 
Idefine 
tdefine 
#def ine 



PTJJSSR 

PT~INT 

PTJEJINT 

PT_CHAR 

PTJOTCHAR 

PT~STRING 

PTJHAME 

PTJDATA 

PT NONE 



0 
1 
2 
3 
4 
5 
6 
7 
8 



// user defined 

// signed int 

// unsigned int 

/ / uchar 

// upcaseduchar 

// asciiz, no multiple spaces 

// upcased STRING 

// data string (0xlb,»-0', etc.) 

// 1st invalid value of . type 



BUS ( B_PROP ) 

char 
sire_t 
uint32 
void 
si z«_t 
size_t 
ctx 



*namep 
name_52 
type 

sz 
len 
ctx 



END_BUS 

#define IID_IJ?ROP 
INTERFACE <I PROP) 



0x02 



/* 

CONSTANTS 



/* 

BUSES 

INTERFACE BUS ( B PROP ) , 



/* 

OPERATIONS 

OP ( get 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 



( set 

( chx 

( get_ 

c q=y. 

( qry_ 

( < 3 r Y_ 

( qry_ 

( qry_ 

< q^y_ 



info 
open 

get__first 

get_last 

get_next 

<get_prev 

get_curx 
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1 

2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

13 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 



OP ( qry_ciose 

END_ INTEOTACE 

/* declaration macro */ 

#define DECIAR£_I_PROP<c,l) 
IDEF (c, 1, 1 PROP) 



OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
END_IDET 

/* allow for semicolon 



get 
set 
chk 

get_info 

qxy_get_first 
qry_ge t_las t 
qry_get_next 
qry_get_prev 
qryjge t_ cur r 
gxy_close 

*/ 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 



typedef int c##_l_##_DECLABE_I_PROP_DUMbCf 
// Descriptions 

if value type is specified and it doesn 1 1 match 



// note: 
the 

If 

defined) 

// 



on get, set and chk 



internal type of the property, the component may (implementation- 
convert the value to the appropriate type; 



on 
in 



out 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



// on 



get 
naxnep 
P 

(sz) 
type 
(*P> 
len 
type 



act: 
s : 



on 
in 



out 
act 
s 



- property name 

- buffer for value or NULL 

- size of buffer (if p not NULL) # [bytes] 

- requested type or IPJNONE for any 

- value 

- value length (for both fixed & var size types) 

- property type 
get property value 

ST BAD NAME - property name not found 
ST~~OVERFL0W - buffer too small 
ST~BErUSE - incorrect type 

ST~BAD ACCESS - property is write-only 



[bytes] 



set 
namep 



(len) 
type 
void 

set property value 



- property name 

- buffer for value or NULL to clear 

- size of value (for var size values) 

- type or IP_NONE if not known 



[bytes] 



stjbadjjame 
st~badjvalue 
st~ovekflow 
st~refuse 
st_bad_acc£ss 

chk 



property name not found 
bad property value 
value too long 
incorrect type 
property is read-only 
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31 

32 

33 

34 
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36 

37 
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41 
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43 

44 
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51 

52 

53 
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57 
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59 



out 
act 
s 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



// on 



- property name 

- buffer for value or NULL to 'clear 

- size of value (for var size value*) , [bytes] 

- value type or IP NONE if not known 



naznep 
P 

den) 
type 
void 

check if property may be set to value (valchJc) 



ST_BAD_NAME 
ST BAD~VALUE 

st~ovekflow 
stTrefose 

ST BAD ACCESS 



- property name not found 

- bad property value 

- value too long 

- incorrect type 

- property is read-only 



// 
// 
// 
// 
// 
// 



xn : 
out: 
act: 
s : 
nb : 



// on 
// in 
// out 
act 
s 



// 
// 
// 



// on 
// 
// 
// 
// 
// 
// 
// 



in : 

out: 

act: 
s : 



// on 
// in : 
// 
II 

// out: 
II 
II 
If 



act: 
s 



// on 
// in 
// 
// 
// 
// 
// 
// 

// 
// 
// 
// 



out; 

act 
s 

on 
in 



get_info 

namep - property name 
type - property type 

get information about specified property 
ST BAD NAME - property name not found 

the information returned by this operation is not affected by 
the current value of the property 

qry_open 

namep - query string 

ctx - query context for subsequent qry_xxx operations 

open query on property space 

ST NO ROOM - too many open queries 

ST~"ba5_SYNTAX - bad query syntax 

qry — get_first 

namep - buffer for name or NULL 
(name_sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(♦namep) - property name 

ctx - query context for subsequent qry_xxx operation 

get first matching property name 

ST NOT FOUND - no matching properties 

qry get_last 

namep ~ - buffer fox name or NULL 
(name sz) - size of buffer, Ibytes] 

ctx ~~ - query context from previous qry_xxx operation 
<* namep) - property name 

ctx - query context for subsequent qry_xxx operation 

get last matching property name 

ST NOT FOUND - no matching properties 

qryjget_next 

namep ~ - buffer for name or NULL 
(name sz) - size of buffer, [bytes] 

ctx "~ - query context from previous qry_xxx operation 
(* namep) - property name 
ctx - query context for subsequent qry_xxx operation 

get next matching property name 
ST NOT FOUND - no more matching properties 

qryjgetjDrev 

namep - buffer for name or NULL 
(name_sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 
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1 // out: (*namep) - property name 

2 // ctx - query context for subsequent qry_xxx operation 

3 // act: get previous matching property name " 

4 // s : S T_NOT_?OUND - no more matching properties 

5 

6 //on qry_get_curr 

7 // in : namep - buffer for name or NULL 

8 // (name_sz) - size of buffer, [bytes] 

9 // ctx - query context from previous qry_xxx operation 

10 // out: (* namep) - property name ~" 

11 // act: get current property name in query 

12 // nb : ctx is unchanged 

13 

14 //on qry_close 

15 // in : ctx - query context from qry_open or another qry_xxx operation 

16 // out: void 

17 // act: close query on property space 
18 

19 #endif // _I_PROP_DEFINZD 

20 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 



IFC: Project Interfaces 
I_FACTORY.H - Component creation / destruction 
Copyright (c) 1994-95 Object Dynamics Corp, All Rights Reserved. 



V 
V 
*/ 
*/ 
V 

*/ 

*/ 



#ifndef _I_FACTORX_DEFINED 
#define ~I~FACTORY~DEFINED 



#define IID I FACTOR* 



INTERFACE (I FACTORY) 



0x01 



CONSTANTS 
enum 

{ 



A_PRIMAR* 

A_NO_ALLOC 

A~GENERIC 

} ; 



(1UL « 14) , // create primary object (factory) 

(1UL « 13) , // don't call new to alloc memory 

(1UL « 12) , // generic factory bus (no ext. data) 



/* ~ 

BUSES 

DEFINEJ3US 
flg32 

^COMPONENT 
JCNTERFACE 
^INTERFACE 
_ctx 
END BUS 



attx; // factory attributes 

*objp; // ptr to component or memory 

*texmp; // terminal interface 

*propp; // property interface 

ctx ; // creation context or NO_CTX 



/* 

OPERATIONS 

OP ( create jdf Its ) ; 

OP < create" ) ; 

OP ( destroy ) ; 

OP ( get_part_if c ) ; 

END INTERFACE 

/* declaration macro */ 

#define DECLARE_I_FACTORY (c , 1 ) \ 

IDEF (c, 1, ^FACTORY) \ 

OPDECL (create > ; \ 

OPDECL (create jdflts ) ; \ 

OPDECI. (destroy ) ; \ 

OPDECL (get_part_ifc ) ; \ 

END_IDEF \ 

/* allow for semicolon */ \ 
typedef int c# #_1 Jf # JDECIJ^ JC Jf ACTORY J)UMM* 



/* Descriptions ~ 

//on create dflts (struct BUS or derived) 
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1 // in : void 

2 // out: attr - default attributes 

3 // objp - NULL 

4 // act: fill rACT0R3f_BUS with defaults 

5 " 

6 //on create (struct BUS or derived) 

7 // in : attr - object attributes (Ajcxx) 

8 // (objp) - ptr to allocated memory for object instance (if A_NO ALLOC) 

9 // ctx - additional context or NO_CTX 

10 // out: objp - ptr to new object 

11 // temp - pointer to the terminal interface of the part 

12 // propp - pointer to the property interface of the part 

13 // act: create new object 

14 // nb : if A_Gi2JKKIC is set, then the bus passed is strictly I_FACT0RX : : BUS and 

15 // not a derived one. 

16 // nb : ctx»HO CTX is always accepted; some components may allow additional 

17 // parameters in/ through this field 
IS 

19 //on destroy (struct BUS or derived) 

20 // in : void 

21 // out: void 

22 // act: destroy object 

23 

24 //on get_part_ifc (struct BUS or derived) 

25 // in : void 

26 // out: termp - pointer to the terminal interface of the part 

27 // propp - pointer to the property interface of the part 

28 // act: return part interfaces 

29 

30 #endif // I FACTOKY_DEFINED 
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1 /* V 

2 /* CLP: Collections Parts */ 

3 /* */ 

4 /* CP BBA.CPP - Bag on Byte Array */ 

5 /* ~ */ 

6 /* Copyright (c) 1993-1994 Object Dynamics Corp. All Rights Reserved. */ 

7 /* */ 

8 

9 # include <rtx_pre.h> 

10 linclude <stddef .h> 

11 linclude <stdlib.h> 

12 tincluda <memory.h> 

13 #include <rtx_post.h> 
14 

15 #include <rtx.h> 

16 #include <asm.h> 

17 linclude <thp.h> 
13 

19 #include <iface.h> 

20 #include <part.h> 
21 

22 linclude <i factor. h> 

23 linclude <i_prop.h> 

24 I include <ijdrain.h> 

25 linclude <i~bag.h> 

26 linclude <i_ agm.h> 

27 linclude <i byteax.h> 
28 

29 /* Definitions V 

30 

31 struct CP BBA_ENTRY HDR 

32 { 

33 enum ATTR 

34 { 

35 A_VALID « VALID, 

36 A FREE » FREE, 

37 AJCILLED - KILLED, 

38 }; 
39 

40 flg32 attr; // attributes [A_VALID, A_FREE , AJCILLED] 

41 uint32 card; // cardinality 

42 ); 
43 

44 /** Component Definition */ 

45 
46 

47 Idefine CP BBA NAME "CPJBBA" 
48 

49 PART < CP_BBA > 

s „ .:. 

52 BUSES 

53 DEFAULT FACTORY_BUS ( CP_BBA ) ; 
54 

55 / / 

56 INPUTS 

57 IDECL ( CP_BBA , factory , I_FACTORX ) ; 

58 IDECL ( CP~BBA , term , I_TERMINAL ) ; 

59 IDECL ( CP BBA , prop , I_PROP ) ; 
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1 IDECL ( CP_BBA , bag , I_BAG ) ; 

2 

3 IDECL RST (CP_BBA) ; 

4 

5 OUTPUTS 

6 ODECL ( CP_BBS , arr , IJBYTEARR ) ; 
7 

S 

9 END_PART //CP BBA 
10 

11 lifdef BIT32 

12 # define hmexncpy memepy 

13 # define HUGE 

14 #else 

15 #define HUGE huge 

16 lendif 

17 

18 /* — - Definitions 

19 

20 idefine AGM_CHUNK 1024 
21 

22 SEGIN_SELF ( CP_BBA ) 

23 // data 

24 uint32 n_entries; // number of entries 

25 void *buffp; // buffer for one entry 

26 uint32 buff sz; // buffer size (dep. on data_sz) 
27 

28 // properties 

29 uint32 datajsz; // data size 

30 uint32 3cey_sz; // key size 

31 uint32 key~off ; // key offset 

32 char name [64]; 

33 END SELF 
34 

35 BEGINj:LASSJDATA ( CP_BBA ) 

36 uiatl6 " instance^counter ; // ... 

37 END CLASS DATA 
38 

39 /* Interface declarations 

40 

41 DECLARE_I_FACTORY ( CP_BBA, factory ) ; 

42 DECLABE_I_TERMINAL < CP_BBA, term ) ; 

43 DECLABE^I^PROP ( CP_BBA, prop ) ; 

44 DECLARE X~BAG ( CP_BBA, bag ) ; 
45 

46 DECLARE RST (CP_BBA) ; 

47 

48 /* I/O tables 

49 

50 INPUTJTABLE 

51 INPUT (CP_BBA, prop , I_PROP ) 

52 INPUT (CP BBA, bag , I_BAG ) 
53 

54 INFUT_RST (CPJBBA) 

55 END INPUT TABLE ~* 
56 

57 OUTPUT TABLE 

58 OUTPUT (CP_BBA, arr , I_BYTEARR ) 

59 
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END_OUTPUT_TABLE 

/* Constants & tables 



PROPERTIES 
/* type 



base field 



# SELF, key^sz 
, SELF, key~ofi 

, SELF , name 



PR0P_UINT ( W DATA_SIZE W 
PROPJJINT ( tt KE*_SIZE w 
PROPJUINT ( w X£X~OFFSET w 

PROP_STRING ("name" 
END_PROPERTIES 

/* I nit / Cleanup 

INIT (C?_BBA> 

{ 

/** init class data */ 
cp->instance_counter « 0; 

REGISTER <CP_BBA) ; 

return (STJ5X) ; 

} /* INIT TCP BBA) */ 



CLEANUP (CPJ3BA) 

i 

DEREGISTER (CP_BBA) ; 

return (ST_OK) ; 

} /* CLEANUP <CP_BBA) V 

/★ Constructors — ~ 

DE FAULT_PART_CONS TRUCTORS (CP_BBA) ; 

/* Operations: factory -« 

DEFAULT_PARTJTACTORY (CPJ5BA, factory) ; 
DEFAULT_PART_TERMINAL (CP_BBA, term ); 
DEFAULT~PART~PROP (CP"fiBA, prop ) ; 

/* — - Operations — — 

METHOD (CP_BRA, create dflts , FACTOR*_BUS) 
{ 

// ... 

return (ST_OX) ; 

} END_METHOD /* CP_BBA, cxeate_dflts */ 

METHOD <CP_BBA, create , FACTORY BUS) 
{ 

^ stat s ; 
/** valchk */ 



V 
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1 if (bp « NULL) return (ST_NULL PTR) ; 

2 

3 /** open interfaces */ 

4 OPEN_INTERFACE (CP_BBA, factory ); 

5 if <bp->attr £ I_FACTORY : : A__PRIMAKJf ) return (ST_OK) ; // valid primary obj 

6 OPEN_INTERFACE (CP_BBA, term ); 

7 OPENJTNTERFACE (CPJBBA, prop ) ; 

8 OPEN~INTERFACE (CP_BBA, bag ) ; 

9 OPEN RST (CP~BBA) ; 
10 

11 /** init self */ 

12 sp->n_entries » 0; 

13 sp->bu£fp » NULL; 

14 sp->buff_sz * 0; 

15 sp->datajsz « 2; 

16 sp-»cey_sz « 2 ; 

17 sp->key off ~ 0; 
18 

19 /** internal reset */ 

20 (void) call (sp->thisp->iRST, raise, NULL) ; 
21 

22 /** special processing for default name */ 

23 os_con_sprintf (sp->name, ir %.50s%d n , CP_BBA_NAME , ++ (cp->instance counter)) 
24 

25 return (ST_0X) ; 

26 ) END METHOD /* CP BBA, create */ 
27 

28 METHOD (CP BBA, destroy, FACTORY_BUS) 

29 { 

30 /** close interfaces */ 

31 CLOSE JCHXEBTACE (CP_BBA, factory ); 

32 CLOSE~INTERFACE (CP_BBA, term ) ; 

33 CLOSEJTNTERTACE (CPJBBA, prop ) ; 

34 CLOSE_INTERTACE (CPJBBA, bag ) ; 

35 CLOSE RST (CP_BBA) ; 
36 

37 /** free entry buffer */ 

38 if (sp->buffp 1= NULL) (void) os_snp_f ree (sp->buffp) ; 

39 

40 /** init self */ 

41 sp->n_en tries « 0; 

42 sp->buffp * NULL; 

43 sp->buf£_sz =■ 0; 

44 sp->data_sz «■ 2; 
45 

46 return (ST_CK) ; 

47 ) END METHOD /* CP_BBA, destroy */ 

48 ~ 

49 /* Operations: bag - — — — — — ~ ~— 

50 

51 OPERATION ( CP BBA, bag, add ) 

52 { 

53 I BYTEARR: :BUS ab; 

54 uint32 i; 

55 CT_BBA_ENTRY_HDR *hdrp; 

56 byte " *datap; 

57 stat s ; 
58 

59 /** valchk */ 
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1 if (bp =» NULL) return (ST_NULL_PTR) ; 

2 if (bp-Xlatap «« NULL) return <ST_INVALID) ; 

3 

4 /** internal init */ 

5 hdrp = ( CP_BBA_ENTRY_HDR *)sp->buffp; 

6 da tap ■ (byte *)sp->buffp + sizeof (*hdrp) ; 
7 

g /** lookup */ 

9 for (x m 0; i < sp->njentries ; i++) 

10 { 

11 /** read entry */ 

12 ab.p - sp->buffp; 

13 ab.sz « sp->buf f_jsz ; 

14 ab.pos « i * sp~>buff_sz; 

15 ab.len « sp->buff_sz; 

16 ab.attr - I_BYTEARR: :A_EXACT; 

17 s » out (arr, read, £ab) ; 

18 if (s » STJEOF) return (STJDNEXPECTED) ; 

19 if ret (s, ») ; 
20 

21 /** skip if empty */ 

22 if {{hdrp->attr ** CPJBBA_ENTRY_HDR: :A_FR£E) i I 

23 (hdrp->attr — CP_BBA_EOTRX~HDR: :A_K2LL£D) ) continue; 

24 " 

25 /** skip if different */ 

26 if (memory ((void *) (da tap + sp->key_off) , 

27 (void *) ((byte *)bp->datap + sp- >key_off) , 

28 sp->key sz) !«■ 0) continue; 
29 

30 /** sanity cnk */ 

31 if (hdrp->card — 0) return (STJJNEXPECTED) ; 
32 

33 /** increment cardinality */ 

34 if (hdrp->card < MAXUINT32 - 1) (hdrp->card) ++ ; 

35 else return (STJDVEKTLOW) ; 

36 

37 /** write back header only */ 

38 ab.p * hdrp; 

39 ab.len « sizeof (*hdrp) ; 

40 ab.pos - i * sp->buff_sz ; 

41 ab.attr « 0; 

42 s • out (arr, write, £ab) ; 

43 if (s — STjOVERFLOW) return (STJUNEXPECTED) ; 

44 if ret is, s) ; 
45 

46 /** pass cardinality */ 

47 bp->card » hdrp->card; 
48 

49 /** return */ 

50 return (ST OK) ; 

51 } // for 
52 

53 /** add */ 

54 for (i * 0; i < sp->n entries; i++) 

55 ( 

56 /** read entry */ 

57 ab.p « sp->buf fp ; 

58 ab.sz = sp->buff_sz; 

59 ab.pos ■ i * sp~>buff_5z; 
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1 


ab.len » sp->buff_sz; 




2 


ab.attx « IJBYTEARR: :A_EXACT; 




3 


s « out (arr, read, tab) ; 




4 


if (s mm ST_EOT) return (ST_UNEXPECTED) ; 




5 


if_ret (s, s) ; 




6 






7 


/** write if es^ty */ 




8 


if <(hdrp->attr — CP_BBA_EOTRY_HDR: :A_FREE) != 0) 




9 


I 




10 


/** init header */ 




11 


hdrp->card » 1; 




12 


hdrp->attr - CP - BBA_EOTRY_HDR: :A_VALID ; 




13 






14 


/** init data */ 




15 


memcpy ((void * ) da tap , bp->datap , sp->data_sz) ; 




16 






17 


/** write header and data */ 




13 


ab.p « sp->buffp; 




19 


ab.len « sp->buff_sz; 




20 


ab.pos * i * sp->buff_ sz; 




21 


ab.attr * 0; 




22 


s « out (arr, write, &ab) ; 


Ill" 


23 


if ( S mm ST OVERFLOW) return (STJtlNEXPECTED) ; 




24 


if_ret (s, s) ; 


'in 


25 






26 


/** pass cardinality */ 


27 


bp->oard = hdrp->card; 




28 






29 


/** return */ 




30 


return (STJDX) ; 


if?™ 


31 


} 




32 


) // for 




33 






34 


/** chk for overflow */ 




35 


if (sp->n entries >» MAXOIOT32 - 1) return (ST_NO_ROOM) ; 




36 






37 


/** init header */ 




38 


hdrp->card "1; 




39 


hdrp->attr * CP_BBA_ENTRY_HDR: :A_VALID; 




40 






41 


/** init data */ 




42 


memcpy ((void *)datap, bp->datap, sp->data_sz) ; 




43 






44 


/** append */ 




45 


ab.p m sp->buffp; 




46 


ab.len « sp->buf£_sz; 




47 


ab.pos » sp->n_entries * sp- >buff_ sz; 




48 


ab.attr « I_BXTEARR: :AJ3ROW; " 




49 


s m out (arr, write, £ab) ; 




50 


if is mm ST OVERFLOW) return (STJUNEXPECTED) ; 




51 


if__ret (s f s) ; 




52 






53 


/*+ increment number of entries */ 




54 


(sp->njentries ) ++ ; 




55 






56 


/** pass cardinality */ 




57 


bp->card « hdrp->card; 




58 






59 


return (STJ5K) ; 
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1 } END_OPEBATION /* bag, add */ 

2 

3 // TO DO: other operation of I_BAG to be i mp lemented here... 
4 

5 /* Signals • , + j 

6 

7 SIGNALERS T ( CP BBA > 

8 { 

9 I_AGM: :BUS ab; 
10 _stat s; 
11 

12 /** free entry buffer */ 

13 if (sp->buffp !« NULL) (void) os_snp_f ree <sp->buffp) ; 
14 

15 /** init self */ 

16 sp->n_en tries * 0; 

17 sp->buffp 3 NULL; 

IS sp->buf£_sz = sizeof ( CP_BBA_ENTRY_HDR) + max <sp->data_sz, 1); 
19 

20 /** alloc entry buffer */ 

21 if _ ret < s ' os «^_*lloc (sp->buff_sz, & (sp->buf fp) ) ) ; 

22 

23 return (STJDK) ; 

24 1 END_SIGNAL /* RST */ 
25 

26 
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1 /* */ 

2 /* EVP: Event Flow Parts */ 

3 /* V 

4 /* EV_PCN.CPP - POLY T-Connector */ 

5 /* */ 

6 /* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved, */ 

7 /* - */ 

S /* Version 1.10 */ 

9 /* */ 



11 ^include <rtxjpre.h> 

12 #include <stddef .h> 

13 # include <stdli±>.h> 

14 Knclude <rtx_post.h> 

15 

16 Uncluda <rtx.h> 

17 linclude <asm.h> 
IS 

19 t include <iface.h> 

20 #include <part.h> 

21 #include <assembly .h> 

22 

23 linclude <i_f actor. h> 

24 finclude <i_prop.h> 

25 iinclude <i*\erm.h> 

26 # include <i_drain.h> 

27 #indude <i_poly.h> 
28 

29 # define EV_PCN_NAME "EVJPCSr 

30 

31 ASSEMBLY <EV PCN) 



34 BUSES 

35 DEFAULT_FACTORY_BUS (EV_PCN) ; 
36 

37 /* 

38 INPUTS 

39 IDECL ( EYJPCK , factory , I_FACTORY ) ; 

40 IDECL ( EVJPCN , term , IJTEBMXNAL ) ; 

41 IDECL ( EV~PCN , termi , I_TERMINAL ) ; 

42 IDECL ( EV~PCN , prop , I_PROP ) ; 

43 IDECL ( EV~PCN , propi , IJPRDP ) ; 

44 IDECL ( EV^PCN , in , I - POLX * ; 
45 

46 OUTPUTS 

47 ODECL ( EVJPCN , out , I_POLY ) ; 

45 ODECL { EV~PCN , aux , IJ3RAIK ) ; 
49 



50 

51 END ASSEMBLY 

52 

53 

54 /* Definitions 

55 

56 BEGIN_SELF (EVJPCN) 
57 

58 DETAULT_ASM_SELF; 
59 
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1 /* group properties */ 

2 uint32 ev_id_min; 

3 uint32 ev_id_jn&x ; 
4 

5 END SELF 

6 

7 BEGIN_CLASSJDATA (EV_PCN) 
S // none 

9 END CLASS DATA 
10 

II DECLARE^ ASM (EV_PCN) ; 
12 

13 /* I/O tables 

14 

15 INFUTJTABLE 

16 INPUT {EV_PCN, prop , I_PROP ) 

17 INPUT <EV_PCN, in , I~POLY ) 

18 END INPUT TABLE ~~ 

19 

20 OUTPUT_TABLE 

21 OUTPUT_I <EV_PCN, out , I_POL¥ ) 

22 CUTPUT~I (EV~PCN, aux , I_DRAIN ) 

23 END OUTPUT TABLE 
24 

25 /* Constants £ tables 

26 

27 ASM_PARTS 

28 NEW_PART ( p2d, EVJP2D ) 

29 NEW~"PART ( ten, EVJTCN ) 

30 NEW~PART ( d2p, EVJ52P ) 

31 END ASM PARTS 

32 

33 ASMJPARAMETRIZATION 

34 // none 

35 END ASM PARAMETRIZATICN 

36 

37 ASM LINKS 



38 


It 


from 


output 


to input 




39 












40 


LINK 


( * * 


in 


, p2d, in 


) 


41 


LINK 


( p2d, 


out 


, ten, in 


) 


42 


LINK 


( ten, 


out 


, d2p, in 


) 


43 


LINK 


( d2p, 


out 


/ * / ©«t 


) 


44 


LINK 


( ten, 


aux 


, * , aux 


) 



45 

46 END ASM LINKS 
47 

48 ASMJPROPERTYJ3ROUP ( ev_idjnin_group ) 

49 ASM_PROPJ*EMBER < ten 7 OUT.EV_IDJffil ) 

50 ASMJPROP^MEMBER ( ten , AUX.EV_ID^MIH ) 

51 END_ASM PROPERTY GROUP 
52 

53 ASM_PROPERTY_GROUP ( evjtdjnaxjgroup ) 

54 ASM_PROP_MEMBER ( ten 7 OUT. EV_ID_MAX ) 

55 ASM~PROP_M£MBER { ten , AUX . EV_ID_MAX ) 

56 END ASM PROPERTY GROUP 
57 

58 ASM_PROPERTIES 

59 ASM_PROP_ALIAS ( OUT •INVERT , ten , OUT. INVERT 
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1 

2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 



ASMJPROP_ALIAS ( AUX. INVERT 

ASM_PROP_GROUP { EV_ID_MIN 

ASMJ?ROP_GROUP ( EV_IDJ1AX 
END ASM PROPERTIES " " 



ASM_GRCOT_PROPERTYJ>£SC 
/* type 



ten , AUX. INVERT 

ev_id_jnin_group 
e v_i d_max_gr oup 



base field 



nan 



max 



PROPJJINT ("EVJU5JHIN" , SELF , ev_idjnin , MINT7IKT32 , MAXUINT32 ), 
PROPJJINT ( W EVJED_MAX W , SELF, evJLdjaax , MINUINT32 , MAXUINT32 ) \ 



END__ASM_GROOT_PROPERTY_DESC 
DEFAULT ASM (EV PCN) ; 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 



IFC: Project Interfaces 
IJPOLX.H - Polymorphic 
Copyright (c> 1994-95 Object Dynamics Corp. All Rights Reserved. 



0 






9 


#ifndef JMPOKJOTIHED 


Xv 


#da£ine "Y~POLx"dEFIHED 


11 






12 


fdefine XID I POL? 0x04 


n 

4 J 






14 


INTERFACE (I_POLY) 


1< 
I J 




16 

iu 






CONSTANTS 




IK 

10 






on 






BUSES 




0 1 


DEFINE_BUS 


ZZ 


// none 


01 


END BUS 








0* 






OPERATIONS 


07 


OP ( 


epO ) 




Oft 
Zo 


OP ( 


opl ) 




JrJ 


OP ( 


op2 ) 




1A 


OP ( 


op3 ) 




11 
Jl 


OP ( 


op4 ) 




17 
JZ 


OP ( 


op5 > 




J J 


OP < 


op6 ) 




>4 


OP ( 


op7 ) 




1< 


OP ( 


op 8 ) 




JO 


OP ( 


op9 ) , 




J/ 


OP ( 


oplO ) 




Iff 

JO 


OP ( 


opll ) 




10 


OP ( 


opl2 ) 




4U 


OP ( 


opl3 ) , 




41 


OP ( 


opl 4 ) , 




42 


OP ( 


op!5 ) , 




43 


OP ( 


opl 6 ) , 




44 


OP ( 


opl7 ) , 




45 


OP ( 


opl8 ) , 




46 


OP < 


op!9 ) , 




47 


OP ( 


op20 ) , 




4S 


OP < 


op21 ) , 




49 


OP ( 


op22 ) , 
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